home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / modula.zoo / _defn_xbios.def < prev    next >
Text File  |  1988-04-26  |  5KB  |  118 lines
  1. DEFINITION MODULE XBIOS;
  2. (* 3.11.87 *)
  3. (* unvollständig !!!!! *)
  4.  
  5. FROM SYSTEM IMPORT ADDRESS ;
  6.  
  7. TYPE MouseType = (DisableMouse,RelativeMouse,AbsoluteMouse, UnusedMouse,
  8.                   KeycodeMouse);
  9.  
  10.  
  11. (*
  12. PROCEDURE initmous( type : CARDINAL; parameter, vector : ADDRESS );
  13.                                                  (* XBIOS call #0 *)
  14.  
  15. PROCEDURE ssbrk( number : CARDINAL ) : ADDRESS;  (* XBIOS call #1 *)
  16.  
  17. PROCEDURE physbase() : ADDRESS;                  (* XBIOS call #2 *)
  18.  
  19. PROCEDURE logbase() : ADDRESS;                   (* XBIOS call #3 *)
  20.  
  21. PROCEDURE getrez() : CARDINAL;                   (* XBIOS call #4 *)
  22.  
  23. PROCEDURE setscreen( logadr, physadr : ADDRESS; res : INTEGER );
  24.                                                  (* XBIOS call #5 *)
  25.  
  26. PROCEDURE setpalette( paletteptr : ADDRESS );    (* XBIOS call #6 *)
  27.  
  28. PROCEDURE setcolor( colornum : CARDINAL; VAR color : INTEGER );
  29.                                                  (* XBIOS call #7 *)
  30.  
  31. PROCEDURE floprd( buffer : ADDRESS; filler : LONGINT; dev, sector,
  32.                   track, side, count : CARDINAL ) : INTEGER ;
  33.                                                  (* XBIOS call #8 *)
  34.  
  35. PROCEDURE flopwr( buffer : ADDRESS; filler : LONGINT; dev, sector, 
  36.                   track, side, count : CARDINAL ) : INTEGER ;
  37.                                                  (* XBIOS call #9 *)
  38.  
  39. PROCEDURE flopfmt( buffer : ADDRESS; filler : LONGINT; dev, spt, track, 
  40.                    side, interleave : CARDINAL; magic : LONGCARD;
  41.                    virgin : CARDINAL ) : INTEGER ;
  42.                                                  (* XBIOS call #10 *)
  43.  
  44. PROCEDURE midiws( count : CARDINAL; ptr : ADDRESS );
  45.                                                  (* XBIOS call #12 *)
  46.  
  47. PROCEDURE mfpint( number : CARDINAL; vector : ADDRESS );
  48.                                                  (* XBIOS call #13 *)
  49.  
  50. PROCEDURE iorec( dev : CARDINAL ) : ADDRESS;     (* XBIOS call #14 *)
  51.  
  52. PROCEDURE rsconf( baud, ctrl, ucr, rsr, tsr, scr : INTEGER );
  53.                                                  (* XBIOS call #15 *)
  54.  
  55. PROCEDURE keytbl( unshift, shift, capslock : ADDRESS ) : ADDRESS;
  56.                                                  (* XBIOS CALL #16 *)
  57. *)
  58.  
  59. PROCEDURE Random() : LONGCARD;                   (* XBIOS call #17 *)                                                    
  60. (*
  61. PROCEDURE protobt( buffer : ADDRESS; serialno: LONGINT; 
  62.                    disktype, execflag : INTEGER ); 
  63.                                                  (* XBIOS call #18 *)
  64.  
  65. PROCEDURE flopver( buffer : ADDRESS; filler : LONGINT; dev, sector,
  66.                    track, side, count : CARDINAL ) : INTEGER;
  67.                                                  (* XBIOS call #19 *)
  68. *)
  69. PROCEDURE ScreenDump();                              (* XBIOS call #20 *)
  70.  
  71. PROCEDURE ConfigureCursor( rate,attrib : CARDINAL ) : CARDINAL ; 
  72.                                                  (* XBIOS call #21 *)
  73.  
  74. PROCEDURE SetDateTime( time : LONGCARD ) ;           (* XBIOS call #22 *)
  75.  
  76. PROCEDURE GetDateTime() : LONGCARD ;                 (* XBIOS call #23 *)
  77.  
  78. PROCEDURE BiosKeys() ;                           (* XBIOS call #24 *)
  79. (*
  80. PROCEDURE ikbdws( number : CARDINAL; pointer : ADDRESS ) ; 
  81.                                                  (* XBIOS call #25 *)
  82.  
  83. PROCEDURE jdisint( number : CARDINAL ) ;         (* XBIOS call #26 *)
  84.  
  85. PROCEDURE jenabint( number : CARDINAL ) ;        (* XBIOS call #27 *)
  86.  
  87. PROCEDURE giaccess( data, register : BYTE ) : BYTE; 
  88.                                                  (* XBIOS call #28 *)
  89.  
  90. PROCEDURE offgibit ( bitnumber : CARDINAL );     (* XBIOS call #29 *)
  91.  
  92. PROCEDURE ongibit ( bitnumber : CARDINAL );      (* XBIOS call #30 *)
  93.  
  94. PROCEDURE xbtimer ( timer : CARDINAL; control, data : BYTE;
  95.                     vector : ADDRESS );          (* XBIOS call #31 *)
  96.  
  97. PROCEDURE dosound ( pointer : ADDRESS );         (* XBIOS call #32 *)
  98.  
  99. PROCEDURE setprt ( config : INTEGER ) : CARDINAL;
  100.                                                  (* XBIOS call #33 *)
  101.  
  102. PROCEDURE kbdvbase () : ADDRESS;                 (* XBIOS call #34 *)
  103.  
  104. PROCEDURE kbrate ( delay, repeat : INTEGER ) : CARDINAL;
  105.                                                  (* XBIOS call #35 *)
  106.  
  107. PROCEDURE prtblk ( parameter : ADDRESS );        (* XBIOS call #36 *)
  108.  
  109. PROCEDURE wvbl ();                               (* XBIOS call #37 *)
  110.  
  111. PROCEDURE puntaes ();                            (* XBIOS call #39 *)
  112.  
  113. *)
  114.  
  115.  
  116.  
  117. END XBIOS.
  118.